home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 2.iso / heat_tst / console.cfg next >
Text File  |  1991-10-19  |  9KB  |  392 lines
  1. /*********************************************************************
  2. /*
  3. /*    console.cfg : コンソール用コンフィグファイル
  4. /*
  5. /*    TABSIZE = 4;
  6. /*
  7.  
  8. /*--------------------------------------------------------------------
  9. _ORICON = K:\T_TOOL\ORICON.COM
  10. ORIMES = 1
  11. /*--------------------------------------------------------------------
  12.  
  13. /*********************************************************************
  14. /*    CONS_line : コンソールコマンド実行前に行変換される
  15. /*--------------------------------------------------------------------
  16. /*        【入力】    CLIN    コマンドライン内容
  17. /*                    CNAM    コマンド名
  18. /*
  19. /*        【復帰】    ! 0        実行後画面初期化
  20. /*          ﾏｸﾛ        RET        実行文字列
  21. /*********************************************************************
  22. CONS_line {
  23.     strupr("s",CNAM)    /* ｱﾙﾌｧﾍﾞｯﾄを大文字に    */
  24.     if ( s = "ORICON" )    /* oricon が実行された場合は画面初期化    */
  25.     {    ORICON_mes()
  26.         RET = CLIN;
  27.         return (1)
  28.     } else if ( s = "ORICON.EXE" )
  29.     {    ORICON_mes()
  30.         RET = CLIN;
  31.         return (1)
  32.     } else if ( s = "ORICON.COM" )
  33.     {    ORICON_mes()
  34.         RET = CLIN;
  35.         return (1)
  36.     } else if ( s = "REIPL" )
  37.     {    text_func(904)    /* 履歴情報のセーブ */
  38.         RET = CLIN;
  39.         return (1)
  40.     } else if ( s = "REIPL.COM" )
  41.     {    text_func(904)    /* 履歴情報のセーブ */
  42.         RET = CLIN;
  43.         return (1)
  44.     } else if ( s = "MENU" )
  45.     {    cons_menu()
  46.     } else
  47.     {    RET = CLIN;
  48.         return (0)
  49.     }
  50. }
  51.  
  52.  
  53. cons_menu {
  54.     mosget("sw","x","y")
  55.     menu2_select(x,y,"CONSOLE MENU",
  56.         "O:ORICON",
  57.         "D:Directory",
  58.         "T:make Tag"
  59.     )
  60.     if ( VAL = 0 )
  61.     {    ORICON_mes()
  62.         RET = _ORICON;
  63.         return    (1)
  64.     } else if ( VAL = 1 )
  65.     {    RET = "DIR /w";
  66.         return    (0)
  67.     } else if ( VAL = 2 )
  68.     {    RET = "mitags *.c *.h >tags";
  69.         return    (0)
  70.     }
  71.     RET = "";
  72.     return    (0)
  73. }
  74.  
  75. ORICON_mes {
  76.     if ( ORIMES ! 0 )
  77.     {    cons_puts("もどるときは [exit] としてね♪\x0A")
  78.         wait(2)
  79.     } else
  80.     {    ORIMES = 1;
  81.     }
  82. }
  83.  
  84. /*********************************************************************
  85. /*    コンソールモードで表示されるPFキーの内容
  86. /*
  87. CONS_PF1  = LH閲覧
  88. CONS_PF2  = LH解凍
  89. CONS_PF3  = LH凍結
  90. CONS_PF4  = 石作成
  91. CONS_PF5  = 石展開
  92. CONS_PF6  = Dir
  93. CONS_PF7  = Xcopy
  94. CONS_PF8  = Tools
  95. CONS_PF9  = MIEL
  96. CONS_PF10 = ORICON
  97.  
  98. /*********************************************************************
  99. /*
  100. /*    コンソールからPFキーが押されると呼び出されるマクロ
  101. /*
  102. /*    【入力】    なし
  103. /*    【復帰】    VAL = 0;    入力行に RET がセットされる
  104. /*                VAL > 0;    入力行に RET がセットされる(ﾌﾟﾛﾝﾌﾟﾄ書換え)
  105. /*                VAL < 0;    入力行はクリアされる
  106. /*
  107. CONS_MAC_1 {
  108.     RET =""
  109.     getdir("DIR")
  110.     file_select("ARC","LHa l : 書庫閲覧", -1, "", "*.lzh", 0 )
  111.     TMP = VAL;
  112.     chdir(DIR)
  113.     if ( TMP ! 0 )
  114.     {    return    (1)    /* ﾌｧｲﾙ･ｾﾚｸﾀ 起動後は (1) で戻らないとｶﾚﾝﾄが変わっている可能性がある    */
  115.     }
  116.     if ( ARC = "" )
  117.     {    return    (1)
  118.     }
  119.     RET = "LHa l \(ARC)"
  120.     cons_puts( RET )
  121.     cons_puts( "\x0A" )
  122.     system( RET )
  123.     return    (-1)
  124. }
  125.  
  126. /*--------------------------------------------------------------------
  127. /*    LHa 解凍
  128. /*
  129. CONS_MAC_2 {
  130.     RET =""
  131.     getdir("DIR")
  132.     file_select("ARC","LHa x : 書庫解凍", -1, "", "*.lzh", 0 )
  133.     TMP = VAL;
  134.     chdir(DIR)
  135.     if ( TMP ! 0 )
  136.     {    return    (1)
  137.     }
  138.     if ( ARC = "" )
  139.     {    return    (1)
  140.     }
  141.     RET = "LHa x \(ARC)"
  142.     return    (1)
  143. }
  144.  
  145. /*--------------------------------------------------------------------
  146. /*    LHa 凍結
  147. /*
  148. CONS_MAC_3 {
  149.     RET=""
  150.     mosget("sw","x","y")
  151.     menu_input("ARC",16,x,y,C_CYAN,"書庫ファイル名を入力してください。")
  152.     if ( VAL < 0 )
  153.     {    return    (0)
  154.     }
  155.     if ( ARC = "" )
  156.     {    return    (0)
  157.     }
  158.     FILE = ""
  159.     getdir("DIR")
  160.     file_select("FILE","LHa a \(ARC) : 凍結", -1, "", "*.*", 0 )
  161.     TMP = VAL;
  162.     chdir(DIR)
  163.     if ( TMP ! 0 )
  164.     {    return    (1)
  165.     }
  166.     if ( FILE = "" )
  167.     {    return    (1)
  168.     }
  169.     RET ="LHa a \(ARC) \(FILE)"
  170.     return    (1)
  171. }
  172.  
  173. /*--------------------------------------------------------------------
  174. /*    Ish ファイル作成
  175. /*
  176. CONS_MAC_4 {
  177.     RET =""
  178.     getdir("DIR")
  179.     file_select("ISH","ish ファイル作成", -1, "", "*.*", 0 )
  180.     TMP = VAL;
  181.     chdir(DIR)
  182.     if ( TMP ! 0 )
  183.     {    return    (1)
  184.     }
  185.     if ( ISH = "" )
  186.     {    return    (1)
  187.     }
  188.     RET = "ish \(ISH) /ss"
  189.     return    (1)
  190. }
  191.  
  192. /*--------------------------------------------------------------------
  193. /*    Ish ファイル展開
  194. /*
  195. CONS_MAC_5 {
  196.     RET =""
  197.     FILE = ""
  198.     getdir("DIR")
  199.     file_select("FILE","ish 展開", -1, "", "*.*", 0 )
  200.     TMP = VAL;
  201.     chdir(DIR)
  202.     if ( TMP ! 0 )
  203.     {    return    (1)
  204.     }
  205.     if ( FILE = "" )
  206.     {    return    (1)
  207.     }
  208.     RET = "ish \(FILE) /r"
  209.     return    (1)
  210. }
  211. /*--------------------------------------------------------------------
  212. /*    Directory
  213. /*
  214. CONS_MAC_6 {
  215.     RET = ""
  216.     FILE = ""
  217.     file_select("FILE","Directory", -1, "", "*.*", 0 )
  218.     getdir("DIR")
  219.  
  220.     RET = "Dir \(DIR)\*.* /W"
  221.     cons_puts("\(RET)\x0A")
  222.     system(RET)
  223.     RET = FILE;
  224.     return    (1)
  225. }
  226.  
  227. /*--------------------------------------------------------------------
  228. /*    カレントディレクトリのファイルを別のディレクトリにコピーする
  229. /*
  230. CONS_MAC_7 {
  231.     wind_close()
  232.     wind_size_set(8,32,480,94);
  233.     wind_open2("カレントディレクトリ上のファイルをすべて複写します。")
  234.     getdir("CPY_DIR")    /* カレントディレクトリ取得    */
  235.     echo("複写元ディレクトリ : \(CPY_DIR)\n")
  236.     echo("複写先ディレクトリにカレントを移動してください。\r")
  237.     DMY=""
  238.     file_select("DMY","ディリクトリ移動", -1, "", "*.*", 0 )
  239.     if ( VAL < 0 )
  240.     {    wind_close()
  241.         RET=""
  242.         chdir(CPY_DIR)
  243.         return (0);
  244.     }
  245.     echo("                                                \r")
  246.     getdir("DST_DIR")
  247.     chdir(CPY_DIR)
  248.     if ( DST_DIR = CPY_DIR )
  249.     {    echo("ERROR : ディレクトリが同じです。")
  250.         wait(10)
  251.         wind_close()
  252.         RET=""
  253.         return (0);
  254.     }
  255.     echo("複写先ディレクトリ： \(DST_DIR)\n")
  256. #    menu_yes_no(24,126,C_HYELLOW,"複写元 : \(CPY_DIR)\x0A複写先 : \(DST_DIR)\x0A        よろしいですか？        ")
  257. #    if ( VAL < 1 )
  258. #    {    wind_close()
  259. #        RET=""
  260. #        return (1);
  261. #    }
  262.     menu_yes_no(24,126,C_HYELLOW,"    サブディレクトリも複写しますか？    ")
  263.     if ( VAL < 0 )
  264.     {    wind_close()    /* キャンセル    */
  265.         RET=""
  266.         return (1);
  267.     } else if ( VAL > 0 )
  268.     {    OPT = "/S /E"
  269.     } else
  270.     {    OPT = ""
  271.     }
  272.     
  273.     /* DST_DIR の最後の'\'を取り除く    */
  274.     strlen(DST_DIR)
  275.     LEN = VAL;
  276.     dec(LEN)
  277.     strmid("DST_DIR",DST_DIR,0,LEN)
  278.     RET = "xcopy \(CPY_DIR)\*.* \(DST_DIR) \(OPT)"
  279.     wind_close()
  280.     return    (1)
  281. }
  282.  
  283. /*--------------------------------------------------------------------
  284. /*    コンソール･ツール
  285. /*
  286. CONS_MAC_8 {
  287.     getdir("MEM_DIR")
  288.     CONS_tools()
  289.     chdir("MEM_DIR")
  290.     wind_close()
  291.     wind_init()
  292.     RET = ""
  293.     return    (-1)
  294. }
  295.  
  296. CONS_MAC_9 {
  297.     ORIMES = 0;
  298.     RET = "\(_ORICON) C:\\COMMAND.COM /C H:\\CMDS\\MIEL *.*"
  299.     return    (0)
  300. }
  301.  
  302. /*--------------------------------------------------------------------
  303. /*    ORICON 起動
  304. /*
  305. CONS_MAC_10 {
  306.     RET = _ORICON;
  307.     return    (0)
  308. }
  309.  
  310. CONS_help {
  311.     wind_close()
  312.     wind_init()
  313.     wind_open2("コンソール へるぷ ﾁｬﾝ")
  314.     tabset(4)
  315.     echo("\n\tLHA やISH はちゃんと用意している？\n")
  316.     echo("\n\tORICONも用意しておかないと起動できないよ。\n")
  317.     wait(10)
  318.     wind_close()
  319.     tabset(8)
  320. }
  321.  
  322.  
  323. /*********************************************************************
  324. /*
  325. /*    コンソールツールボックス
  326. /*
  327. CONS_tools {
  328.     menu2_select(160,56,"<TOOL BOX>",
  329.         "S:Setup      コンソール環境設定",
  330.         "F:Format     フロッピィディスク初期化",
  331.         "D:DiskCopy   フロッピィディスク複写",
  332.         "M:DiskCopy   フォーマットしながら複写"
  333.     )
  334.     if ( VAL < 0 ) { return    }
  335.     if ( VAL = 0 )
  336.     {    /* コンソール環境設定    */
  337.         CONS_setup()
  338.     } else if ( VAL = 1 )
  339.     {    /* Format */
  340. #        VOL =""
  341. #        menu_input("VOL",13,320,200,C_CYAN,"ディスクボリューム名は？")
  342. #        if ( VAL < 0 ) { return    }
  343. #        if ( VOL ! "" )
  344. #        {    TMP = "\x22\(VOL)\x22"
  345. #        } else
  346. #        {    TMP = "―なし―"
  347. #        }
  348. #        menu_yes_no(-1,-1,C_HYELLOW,"フロッピィディスク初期化：\x0Aボリューム名：\(TMP)\x0AＡドライブにフロッピィディスクをセットしてください\x0A                 よろしいですか？")
  349.         menu_yes_no(-1,-1,C_HYELLOW,"フロッピィディスク初期化：\x0AＡドライブにフロッピィディスクをセットしてください\x0A                 よろしいですか？")
  350.         if ( VAL < 1 ) { return    }
  351.         RET = "format A:"
  352.         cons_puts("\(RET)\x0A")
  353.         system(RET)
  354. #        if ( VOL ! "" )
  355. #        {    RET = "label A:\(VOL)"
  356. #            cons_puts("\(RET)\x0A")
  357. #            system(RET)
  358. #        }
  359.     } else if ( VAL = 2 )
  360.     {    /* ディスク複写    */
  361.         RET = "diskcopy A: B:"
  362.         cons_puts("\(RET)\x0A")
  363.         system(RET)
  364.     } else if ( VAL = 3 )
  365.     {    /* ディスク複写    */
  366.         RET = "diskcopy A: B: /F"
  367.         cons_puts("\(RET)\x0A")
  368.         system(RET)
  369.     }
  370. }
  371.  
  372. /*==================================================================
  373. /*    コンソール環境設定
  374. /*
  375. CONS_setup {
  376.     menu2_select(160,56,"<CONSOLE SETUP>",
  377.         "O:ORICON [\(_ORICON)]"
  378.     )
  379.     if ( VAL = 0 )
  380.     {    /* ORICON    */
  381.         FILE = _ORICON;
  382.         file_select("FILE","ORICON 設定", -1, "", "*.*", 0 )
  383.         if ( VAL < 0 )
  384.         {    return
  385.         }
  386.         if ( FILE ! "" )
  387.         {    _ORICON = FILE;
  388.         }
  389.     }
  390. }
  391.  
  392.